home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 25 / Cream of the Crop 25.iso / program / fpk65_66.zip / SOURCE / RTL / DOS / MODES.INC < prev    next >
Text File  |  1996-11-12  |  666b  |  26 lines
  1. {****************************************************************************
  2.  
  3.                         FPKPascal Runtime-Library
  4.                           Copyright (c) 1994,96 by
  5.                              Florian Klaempfl
  6.  
  7.  ****************************************************************************}
  8.  
  9.     function getscreenmode : byte;
  10.     
  11.       begin
  12.          dosmemget($40,$49,getscreenmode,1);
  13.       end;
  14.       
  15.     procedure setscreenmode(mode : byte);
  16.     
  17.       begin
  18.          asm
  19.             movb 8(%ebp),%al
  20.             xorb %ah,%ah
  21.             pushl %ebp
  22.             int $0x10
  23.             popl %ebp
  24.          end;
  25.       end;
  26.